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3 2 iO A IGG III GO IG III RO I ICH ok aca 2k ak ok 00000D 118 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
4 * 54 QOO00E 119 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
es eK PREREQUISITES * x * O0O000F 120 RSTAT EQU 15 READ STATUS SVC 
6 * * 000010 121 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
7 * NONE * 000011 122 WRIT EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
8 * * 000012 123 CTRL EQU 18 CONTROL SVC 
9 FEO CIC GIGI OR I ORIG I gk ok kok get ak tok fei ak 000013 124 RICB EOU 19 RELEASE INTERUPT CONTROL BLOCK SV: 
10 * * 000014 125 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
11 * eR MODIFICATIONS es * 000015 126 HIO EQU 21 HALT ALL I/0 
12 * * 000016 127 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
13 * NONE + 000017 128 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
14 * * 000018 129 HALT EQU 24 HALT SVC 
15 2 IC I IG IO IC I I GIO RI ICRCR Rac ak ace akc ak ak 000019 130 ETOH EOU 25 EBCDIC TO HEX SVC (STRING 
16 * 7 OOOO1A 131 HTOE £EQU 26 HEX TO EBCDIC SVC {Static} 
17 * ai REA'S INCORPORATED kK * 00001B 132 ATOH Ee 27 ASCII TO HEX SVC TRING 
18 * * Q0001C 133 HTOA EQU 28 HEX TO ASCII SVC (STRING 
19 * NONE * 00001D 134 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
20 * * QOO0OTE 135 ATOE EQU 30 ASCTT TO EBCDIC SVC (STRING 
2.7 FRR RR II OIG IR IC I GI ak ka 30K ok OO001F 136 READI EOQU 31 READ DATA SETS FOR MDI/OTIL 
22 * * 000020 137 WRITI EQU 32 WRITE DATA SETS FOR UTIL 
23 * CK SPECIAL INSTRUCTIONS eK * 139 2 RRR I III IG I IR IR TOR IG IR I I I I 
24 * * 140 * * 
2? z NONE i ae : EQUATES USED BY TU'S AS CONSTANTS : 
27 2A CII IG GIG Gi a IOI a qok gai gk ak U3 OR RRR RRR II IR I RO IR dR III 
28 * * OOOO4E 144 PLUS EQU Chet PLUS CHAR 
29 * eR E. C. HISTORY ee * 000060 145 MINUS EQU cte* MINUS CHAR 
30 * i 000000 147 ZERO EQU 0 
31 * DATE O20CT78 DATE DATE DATE * 000001 148 ONE EQU 1 
32° E.C. 375102 E.C. E.C. E.C. * 000002 149 TWO EQU 2 
33° * 000003 150 THREE eeu 3 
34 OR CG ICO IGG I IR IG dR atk dak a ak ak 000004 151 FOUR EOU 4 
36 2A I II I IG OI IC Hor i doi kiko gai 000005 152 FIVE EQU 5 
37 * DEFINE CONSTANT AREA FOR PROGRAM T.D. U7AF = 000006 153 SIX EQU 6 
38 2G ROR I RI EGR GG IGG kc i ak ica iki aki ak 000007 154 SEVEN EQU 7 
001800 39 UTJAF1 START X'1800! PROGRAM START ADDRESS 000008 155 EIGHT EQU 8 
001800 FV7C1C6F1 40 PID DC C'7AF1' PROGRAM NAME 000009 156 NINE EQU 9 
001804 0000 4 DC X'O0000! LEVEL OOOOOA 157 TEN EQU 10 
001806 1D3A 42 STADDR DC A Rees S START EXECUTION ADDRESS 00000B 158 ELEVN EQU 11 11 
001808 1812 43 DEVPT DC A (DEVTAB) POINTER TO DEV TABLE 00000C 159 TWELV EQU 12 12 
007180A 0000 44 RINE DC A (0 ROUTINE NUMBER 00000D 160 THRIN EQU 13 13 
00180C 0000 45 CKPT DC A (0 CHECKPOINT NUMBER OOO000F 161 FIVTIN EQU 15 15 
00180E 00000000 46 DC rap ) OPTION WORD ONE AND TWO 000010 162 SIXTN EQU 16 16 
001812 Cc0O01 47 DEVTAB DC X*COO1! START OF DEVICE TABLE 000020 163 THRY2 EQU 32 32 
001814 Q000 48 DEVADD DC X'O0000! DEVICE ADDRESS AND TYPE 000040 164 SIXT4 EQU 64 64 
001816 0000000000000000 49 ASSIGN DC XL8'00! DEVICE DEPENDENT DATA 000080 145 ONE28 EQU 128 128 
OO181E 7A 50 TYP7A DC X'7At DEVICE TYPE FOR THIS PROGRAM 000100 166 TWO56 FOU 256 256 
001820 0O00F 51 ®ETOH DC A ra) EBC TO HEX CONTROL BLOCK 000400 167 ONEK EQU 1024 1024 
001822 1830 52 @ETOH1 DC A (INAREA FROM DATA ADDRESS 000800 168 TWOK EQU 2048 2048 
001824 1886 53 @ETOH2 DC A (SERIAL TO DATA ADDRESS 000C00 169 THREK EQU 3072 3072 
001826 00CO 54 DC X*O0OCO! CONTROL BYTE FOR OUTIN CONTROL BLOCK 001000 170 FOURK EQU 4096 4096 
001828 1852 55 @OUTIN DC A poe ADDRESS OF MESSAGE FFFFFF 172 M1 EQU =A = 
00182A 1830 56 DC A (INAREA) ADDRESS OF INPUT AREA FFFFFE 173 M2 EQU =o =2 
00182C QO0OO0F 57 DC A (15) LENGTH OF INPUT DATA FFFFFD 174 M3 EQU =3 -3 
00182E 0000 58 DC A 0) TYPE OF INPUT Aaa FFFFFC 175 M4 EQU ~4 ~4 
001830 4040404040404 0404 59 INAREA DC 16C ' OUTIN INPUT AFEA 177 RR RR OR RRR RRR IR OR dR IIR da kk i ie cake ok 
001850 T7AF1 60 DC ZY TREY" STOP CODE FOR REQUEST OF DEV. ADD. 178 * * 
001852 FUFOF6F340E2C5C3E 61 MSG DC C'*4963 SECTOR ID SAVE, ENTER DEV ADDR,DE ID AND DATE! 179 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
001884 00 62 DC x'OOo! 180 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
001886 0000000000000000 63 SERIAL DC 4A (*-* 181 * > 
64 * THE FOLLOWING DC'S ARE TO SATISFY THE $ERR$ ROUTINE 182 3ekOR II IO II RI IO RII RR OR it gk ke die 
00188E 1920 65 TUMSGWTR DC A (O@MSGWTR) ADDRESS OF ABORT MESSAGE WRITER 000000 183 BSO EOU 0 
001890 0000 66 TUSTATUS DC A o). DUMMY TU STATUS 000001 184 BS1 EQU 1 
001892 4O4O04 040404040404 67 TUWORK DC 12bC*.. WORK AREA FOR ABORT PRINTAREA 000002 185 BS2 EQU 2 
001912 0000 68 @DCADD1 DC A (0 DUMMY POINTER 000003 186 BS3 EQU 3 
001914 Q000 69 @DCADD2 DC A (0 DUMMY POINTER 000004 187 BS4 EQU 4 
001916 0000 70 SUPSTAT DC A (0 DUMMY STATUS AREA 000005 188 BSS EQU 5 
001918 0080 71 @OUT1 Dc x'0080' CONTROL BYTE FOR OUT CONTROL BLOCK 000006 189 BS6 EQU 6 
00191A 0000 72 OOUT DC ok ADDRESS OF MESSAGE 000007 190 BS7 EQU 7 
00191C T7AF1 73 DC X"7AF1! STOP CODE FOR ABORT MESSAGE 000008 191 BS8 EQU 8 
00191E 0000 74 ABMSG DC X'0000! DUMMY ABORT MESSAGE 000009 192 BS9 EQU 9 
iS. * OOOOOA 193 BS10 EQU 10 
76 * THE FOLLOWING ROUTINE WILL OUTPUT ***ABORT*¥*** MSG Q0000B 194 BS11 EQU 11 
77 * 00000C 195 BS12 EQU 12 
001920 6908 1D2E 78 @MSGWTR MVW DC2PT,R1 ADDRESS OF MESSAGE AREA 00000D 196 BS13 EQU 13 
001924 0102 719 ABI TWO,R POINT R1 AT FIRST LINE LENGTH OO000E 197 BS14 EQU 14 
001926 CAS55 80 MVWZ (R1)+,R2 LOAD R2 WITH LENGTH OOO0O0F 198 BS15 EQU 15 
001928 690D 191A 81 MVW R1,00UT MOVE ADDRESS OF MESSAGE INTO BLOCK 200 * 
00192C 4020 1802 C6F2 82 MVWI x'€6F2" ,PID+2 LOAD PID WITH X'F2'" STOP CODE 201 * 
001932 4724 191A 83 MVA @OUT,R7 LOAD ADDRESS OF CONTROL BLOCK 202 eC aa aa cio ica io io tokio tak ack gegot toto ak Ub 72 8/7 7 et aR Fk 
001936 6000 84 svc OUT ISSUE SVC 203 * 
001938 0108 85 ABI EIGHT,R1 BUMP R1 204 * DCB TABLES AND DC'S 
00193A CA25 1D2C 86 MVWZ BUFPT, R2 ZERO END OF DATA AREA 205 * 
00193F 4424 0008 87 MVWT FIGHT,R4 INTT R4 TO LINES OF OUTPUT 206 eR IO OR RI IOI OR FG IR RIOR Ra OR I kk i kg ik 
001942 CA55 88 MSGWTR1 MVWZ (R1)+,R2 LOAD LENGTH OF MESSAGE 207 * 
001944 690D 191A 89 MVW R1,000T LOAD ADDRESS OF MESSAGE INTO BLOCK 208 * 
001948 4724 191A 90 MVA aooT,R7 LOAD ADDRESS OF BLOCK 209 ***** READ SECTOR ID DCB ******* 
00194C 6000 91 SVC out ISSUE SVC 210 * 
QO194E 0128 92 ABI X'28',R1 BUMP TO NEXT LINE 001968 201C 211 RSDCB DC X'*201C* READ SECTOR ID NO AUTO SEEK 
001950 BCFS8 93 JCT MSGWTR1,R4 BRANCH FOR COUNT 00196A 0000 212 DC X'0000! FG/SEC 
001952 4020 1918 Q0CO0 94 MVWI X¥*00CO! ,a0UT1 CHANGE CONTROL BYTE 00196C 0000 213 DC X'0000! HD/CYL 
001958 4020 191A 191E 35 MVA ABMSG, @OUT LOAD ADDRESS OF ABORT MESSAGE QO196E 0000 214 DC X*'OO0Q!' NOT USED 
00195E 4724 191A 96 MVA aouT , k7 LOAD ADDRESS OF CONTROL BLOCK 001970 223A 215 DC A (RSBA) RSB_ADDRESS 
001962 6000 97 SVC OUT ISSUE SVC 001972 0000 216 DC X "0000 CHAIN ADDRESS 
001964 6802 1BC6 98 B ECONX BRANCH TO END 001974 0004 217 DC X*Q004! BYTE COUNT FOR READ SECTOR ID 
99 * 001976 19C6 218 DC A (SCTID) SECTOR ID DATA ADDRESS 
100 [eI GIGI IG IGOR III IOI FIO ICR Sa a a ai 219 * 
101 * * 220 ****e SEEK DCB 2K 
102 * EQUATED NAMES FOR SUPPORTED SVC'S * 221 * 
103 * * 001978 0000 222 SKDCB DC X*Q000! SEEK DCB 
104 OO RIO IA IG IG III I IIR IR I IR IG ii i 00197A 0000 223 DC x'*0000t FG/SEC 
000000 105 oUuT EQU 0 ouUT SVC 00197C 0000 224 DC F'ot HD/CYL 
000001 106 OUTIN EQU 1 OUTIN SVC 00197E 0000 225 DC F'Q! 
000002 107 IDLE EQU 2 IDLE SVC 001980 223A 226 DC A (RSBA) RSB_ADDRESS 
000003 108 IDLE5S EQU 3 IDLE SVC —- INDEPENDENT OF CPU TYPE 001982 0000 227 DC A (*—-*) CHAIN ADDRESS 
000004 109 CHNGE EQU 4 CHANGE LEVEL SVC 001984 0000 228 DC F'ot NOT USED 
000005 110 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 001986 0000 229 DC Ftor NOT USED 
000006 111 EXIT EQU 6 EXIT SVC 230 * 
000007 112 TERN EQU 7 TERMINATE SVC 231 *****x CYCLE STEAL STATUS DCB ****x**x 
000008 113 RESET EU 8 RESET DEVICE SVC 232 * 
000009 114 RID EQU 2 READ ID SVC 001988 2000 233 CSDCB DC X*20008 CONTROL WORD 
OOOOOA 115 START EQU 10 START CYCLE STEAL SVC 00198A 0000 234 DC F'gr NOT USED 
00000B 116 STCSS aa 11 START CYCLE STEAL STATUS SVC 00198C 0000 235 DC Ftot NOT USED 
00000C 117 PREP EQU 12 PREPARE DEVICE svc 00198E 0000 236 DC Ray? NOT USED 
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001990 0000 237 DC FQ! NOT USED 354+% 
001992 0000 238 DC F'Q? NOT USED 0019F8 0000 SEE EE DC A (*-* LAST SUBROUTINE ADDRESS USED 
001994 aoAe 239 DC X'OO1A' 13 WORDS OF STATUS O0O19FA 00000000 356+S$DATA DC 2A (*-* OPTIONAL DATA 
001996 tT9DE 240 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA QOO19FE 0021 357+$INTL DC Xx*O0027T° INTERRUPT LEVEL REQUESTED 
241 * ; 001A00 0000 Seo. euues DC A (*" *) TEST UNIT RETURN ADRS TO MDI 
242 **** READ SECTOR ID SKEWED *e KK Q0O01A02 00 359+$DVID DC xXxOoO? DEVICE ID 
243 * eer 1814 Se ih ee DC A (DEVADD) ADRS OF DEVICE ADDRESS 
001998 201D 244 RKDCB DC X'*201D* CONTROL WORD - NO AUTO SEEK 001A0 0000 361+ DC A (*-*) IBIS CYLINDER ADDRESS 
00199A 0000 245 DC X'Q000! FG/SEC 362+* 
00199C 0000 246 DC X'Q000! HD/CYL 363+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
OO0O199E 0000 247 DC X¥*'0000' NOT USED : 3644+*% FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
QOO19A0 223A 248 DC A (RSBA) RSB ADDRESS 365+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
0019A2 0000 249 DC A 0008 CHAIN ADDRESS 306+% 
OO19A4 0004 250 DC X*OOO4!8 BYTE COUNT FOR READ SECTOR ID 001A08 4020 19BE 7A02 367+T7A02 MVWI X'7A02',$TUID SET UP TEST UNIT ID 
0019A6 19C6 $24 ‘ DC A (SCTID) SECTOR ID DATA ADDRESS OO1A0E 5700 358+ | BXS (R7) RETURN TO MDI SUPVR 
253 **** READ MULTIPLE SECTOR IDS KKH 371 * 
254 * 372 * EXECUTE INPUT & OUTPUT COMMANDS 
0019A8 2014 255 RMDCB DC X*20148 CONTROL WORD - AUTO SEEK 373 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE 
QO19AA 0000 256 DC F'gor FLAG/SECTOR 374 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
0019AC 0000 257 DC X¥'0000! BELU/ELINDER 375 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
QO19AE 0000 258 DC x'Q000' SCAN COUNT 376 * SUPVR CALL. 
0019B0 223A 259 DC A (RSBA) RSB ADDRESS 377 * e 
0019B2 0000 260 DC A 008k CHAIN ADDRESS 378 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
0019B4 0084 261 DC X*0084" BYTE COUNT 379 * : 
0019B6 239¢ 262 DC A (IDO00) DATA AREA ADDRESS 380 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
a * a aa) = 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
DIT 
0019B8 0000 coGe OPIN D Xx*0000° PROGRAM OPTION CONTROL WORD 1 aaa : THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
+ 4 
0019BA 0000 £08 OPIN2 DC caret oe PROGRAM OPTION CONTROL WORD 2 382 . 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
000010 270+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 387 * 2 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 
000011 271+B49 EQU 17 1 y * 388 * . 
000012 272+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 389 * 3 BAL SWSEC,R6 WRITE SECTOR ID 
000013 273+B51 ty 19 3 1 * SECOND OPTION WD AND ARE TO 390 * ° 
000014 274+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 391 * 4 BAL SDIAG,R6 DIAGNOSTIC 
000015 275+B53 EQU 21 5 4 * 392 * ‘ 
000016 2764+B54 HOU 22 6 2 * 393 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
000017 277+B55 EQU 23 7 1 * 394 * ; 
000018 278+B56 EQU 24 8 8 * 395 * 6 BAL SSEEK,R6 SEEK 
000019 2794+B57 EQU 25 9 4 * 396 * “ 
OOOOTA 280+B58 EQU 26 10 2 * 397 * 7 BAL $RECL,R6 RECALIBRATE 
00001B 281+B59 EQU 27 11 1 * 398 * ‘ 
00001C 282+B60 EQU 28 12 8 * 399 * 8 BAL SRDID, R6 READ SECTOR ID 
00001D 283+B61 EO 29 13 4 * 4OO0 * P 
OOOO1E 284+B62 EQU 30 14 2 * 4O1 * 9 BAL $RD,R6 READ 
00001F 285+8B63 zed 31 15 1 * 4Q2 * ‘ 
OO001E 286+CH EQU 30 14 2 CHARACTER SUPPLIED 403 * 10 BAL SRDVY,R6 READ VERIFY 
OOO01F 287+CMP EQU 31 15 1 COMPARE OPERATION YOU * e 
0019BC 0000 eeu DC X*0000! PROGRAM OPTION CONTROL WORD 3 4O2 : 11. BAL SWRT ,R6 WRITE 
- 
291+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 4O7 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
292+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 4“QO8 * 
293+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 409 * 13 BAL SURTO, R6 WRITE DPC COMMANDS 
294+* 3 QINTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 410 * 
295+* 001A10 4020 1B4E 1978 411 $SEEK HVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
296+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 001A16 5012 412 J XIO 
297+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR IOCC 413 * 
298+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN 414 * 
299+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 001A18 4020 1B4UE 1968 415 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
300+* BIT HEX OO1A1E 500E 416 XIO 
000020 301+MT EQU 32 0 8 MYSTERY INTERRUPT HAPPENED G17 * 
000021 302+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 001A20 4020 1B4UE 19A8 418 $RDIM HVA RMNDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
000022 303+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT Q001A26 4724 0084 419 MVWI 132,R7 SET BUFFER LENGTH 
0000 23 304+IN EQU 35 S 1 INTERRUPT RECEIVED CONTROL BIT QOO1A2A 4524 239C 420 HVA 1D06 ,R5 SET BUFFER ADDRESS 
000024 305+4+XE EQU 36 4 8 EXPECTED ce RESPONSE QOO1A2E OBBB 421 MVBI xX*BB!,R3 SET CLEAR CHARACTERS 
000025 306+HE EQU 37 5 a HARD ERROR RETRIES 001A30 2BAC 422 FFN R3 (R5) CLEAR THE BUFFER 
000026 307+$LE EQU 38 6 2 INTERRUPT bu” WRONG LEVEL ERROR 001A32 5004 423 J x16 
000027 3084*NTI EQU 39 7 1 NO INTERRUPT EXPECTED E 424 * 
000028 3094CS EQU 4Q 8 8 CYCLE STATUS IN PROGRESS QOO1A34 4020 1B4E 1998 425 S$RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
000029 3104+CSA ate 41 9 4 CYCLE STEAL AVAILABLE OO1A3A 5000 Zs J XIO 
QO002A 311+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 427 * : 
00002B 3124+ISBON EQU 43 11 1 ISB BITS ON ) 428 * 
00002c 313+NG EQU Gy 12 8 TEST UNIT RE ULTS NO GOOD 429 [eC ack to cg aici ok iolok ak iokggctiok tok dati lok kicks tok 29 JUL 6* * 
00002D 3144+#IOCC EQU 45 13 4 OIO CC ERROR 430 * 
00002E 315+NOIN EQU 46 14 2 NO INTERRUPT 431 * SUB-ROUTINE 
0000 2F 316+INCC EQU 47 15 1 INTERRUPT CC ERROR 432 * 
317+* 433 * EXECUTE INPUT AND OUTPUT COMMANDS 
318+* COMMON BUFFER FOR PRINTING DATA 434 * 
319+%* 435 * PURPOSE 
0019BE 0000 321+$TUID DC A (*-* TEST UNIT IDENTIFICATION 436 * 
0019CO 0000 322+$IOIN DC A (*-* I7O AND INTR CONDITION CODES 437 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
0019C2 0000 323+$ISB DC A (*-* R INTR STATUS Ritt & DEV ADRS 438 * THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
0019C4 0000 324+LSTIO DC A (*-* ADRS OF LAST I/0 4 BYTES 439 * 
0019C6 0000 325+DEV1 DC A (*-* DEVICE DEPENDENT DATA 44O * 1. SAVE THE ae THAT POINTS TO THE INSTRUCTION THAT STARTED 
0019C8 0000 326+DEV2 DC A (*—% * G41 * THE I/O COMMAND. 
0019CA 0000 327+DEV3 DC A (*—* * 442 * 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
0019CC 0000 328+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC 443 * ISSUED BY THIS SUBROUTINE. 
0019C6 3294+#SCTID EQU DEVI READ ID BUFFER FOR IBIS & TERN Guu * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
0019CE 330+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 4S * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
0019CE 0000 331+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD G46 * 4. RESETS THE INTERRUPT INDICATOR AND CHECK R ANY INTERRUPT 
0019D0 0000 332+DCB2 DC A (¥-* LAST DCB TABLE, DEV DEP WORD YY] * SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
0019D2 0000 333+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD ug x MYSTERY INTERRUPT Ae CONTROL BIT IS SET. 
0019D4 0000 334+DCB4Y DC A (*-* LAST DCB TABLE, DEV DEP WORD HUQ * 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
0019D6 0000 335+DCB5 DC A (*—* LAST DCB TABLE, DEP WOR 450 * EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE tsvé START. 
0019D8 Q000 336+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS G51 * 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
0019DA 0000 337+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 452 * STARTS TO DETERHINE A LOST INTERRUPT. 
0019DC 0000 338+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 453 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
339+ S54 x WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
0019DE 340+CSBUF EQU * CYCLE STEAL DATA BUFFER 455 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
QO0O19DE 0000 341+CSTL1 D A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 456 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
0019E0 0000 342+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 457 * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
0019E2 0000 3434+CSTL3 DC A (*¥-* CS STATUS WD 2, RETRY CNT WD 1 458 * 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
Q0019E4 0000 3444CSTL4Y DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 459 * 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0019E6 00600 3454+CSTL5 DC A (*-* CS STATUS WD G, ERROR STATUS WD 460 * ISSUED BY THIS SUBROUTINE. 
0019E8 0000 346+#CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 461 * 13. CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 
OO019EA 0000 347+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 462 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
QO019EC 0000 348+CSTL8B DC A (¥-* CS STATUS WD 7, PREVIOUS HD/CYL 463 * COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
QOO19EE 0000 349+CSTLI DC A (*-* CS STATUS WD 8, CURRENT HD/CYL 464 * 
OO19FO 0000 350+CST10 DC A (*-* CS STATUS WD 9, FLAG/SSECT 465 * CALLING SEQUENCE 
0019F2 0000 351+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 466 * 
0019F4 0000 352+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 467 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
0019F6 0000 353+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP "Byte 468 * 





—— - ~ et ™~ le aoe “ “ee ~ on. NX _— a“ NN / N\ / fete “ *NAS 4 x Nee SN a 
DISK SAVE SECTOR ID PROGRAM FOR THE 4963 P/N=6837923 EC=375102 PAGE 03 DISK SAVE SECTOR ID PROGRAM FOR THE 4963 P/SN=6837923 EC=375102 PAGE O3A 
OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM COR? 1976 
469 * --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 586 * TL 
470 * --> BAL XIo1 MOD PARM PRELOADED IN 'Tomop! 587 * CC O= CONTROLLER END ISB O= ADD STATUS TL 
471 * --> BAL XIOcCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 588 * FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
472 * --> BAL XxIOocS-4,R6 AUTO CS STATUS a eae OTHER XIO 589 * INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
4Y73 * ‘ BND DOES NOT POST INTERRUPT STATUS) 590 * 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
“74 * 591 * Y= ATTENTION INTERRUPT 4= STG DATA CK IL 
475 * RETURN CONTROL 592 * 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
“76 * 593 * 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK TL 
K77 * BXS R6, 2) RETURN TO USER NO ERROR 594 * 7= ATTENTION / DEVICE END INTR y= I-FACE DATA IL 
478 * OR B 6) * RETURN AND RETRY ON ERROR 595 * TL 
079 ORO I OR IOI OR OK IR a A RAI kk a a a OO1ABA 7O6E 596 INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 TL 
0OO1A3C CB25 481 XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP OO1ABC 336A 597 SRL 13,R3 POSITION INDICATORS IN R3 IL 
OO1A40 SOOE 482 J XIo1 CS I/O'S ARE NOT RETRIED OOTABE 4424 19B8 598 MVA optn1,R4 SET UP BASE ADFS IL 
483 * QO01AC2 4C28 599 TBT ant c§) IS CS IN PROGRESS TL 
001A42 4020 484 XIODG MVWI xX*O00D",IOMOD SET MODIFIER FOR DIAGNOSTIC OPS OO1TAC4H 1006 600 JOFF NTES * NO IL 
001A48 500A 4g5s J XIO1 GO TO CS OPS QOO01AC6 4C6A 601 TBTS (R4 ah TURN ON CYCLE STEAL INTER ERROR IL 
“86 * 001AC8 6FOD 19CC 602 MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
OO1A4A 4CAA 487 TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. O01ACC C328 19CD 603 MVB R3,DEV4+1 * AND THE COND CODE IL 
OO1A4C 4C68 488 TBTS R4,C SET "CYCLE STEAL STATUS! IN PROGRESS QOO1AD0 500A 604 J INTR1 IL 
OOTAGYE 4020 489 XIOCS MVA spcB ODCB SET UP CONTROL BLOCK FOR SVC CALL OO1AD2 4C24 605 INTES TBT ce XE) TEST EXPECTED ATTEN / ERROR IND IL 
0O01A54 4020 490 MVWI X*000ft, TOMOD SET CYCLE STEAL MODIFIER OO1AD4 1002 606 JOFF NTET BCH IF NOT EXPECTED IL 
QOOTASA 4C28 494 TBT Ae TS CS IN PROGRESS, ERROR CONDITION QOO1AD6 F304 607 CBI 4 ,R3 IS THIS AN ‘ATTENTION! INT IL 
OO1A5C 1213 492 JON Tod * YES, BYPASS SAVING I/O ADRS OO1AD8 1006 608 JE INTR1 * YES, BCH TO END INTR SEQUENCE TL 
QOO1A5E 6E0D 493 xXIo1 MHVW R6,LSTIO SAVE TAR FOR RETRY TF REQUESTED OO1ADA 4C61 609 INTET TBTS ar ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
OO1A62 4324 494 MVA DCRUF, R3 SET UP TO ADFS TO MOVE DCB TABLE QOO01ADC 5004 610 J NTR 1 TL 
001A66 6D08 495 MVW IODCB,R5 * AND THE FROM ADRS, ALONG WITH 611 * THE ERROR INTERRUPT USES TYE SAME IL 
OO1A6A OFA 496 MVBI 26, * THE NUMBER OF MOVES 612 * ENDING SEQUENCE AS THE NORMAL INTR IL 
OO1A6C 2D64 497 MVEN sro) §R3) MOVE 1 STATUS WORD AND ADJUST 614 OOO COO oR ot a ogi io kik ak oakototok atk tcc TU APRTI6BIL 
QOO1A6E OBFF 498 MVBI 55 f CLEAR CYCLE STATUS BUFFER 615 * IL 
OO1A70 4524 499 MVA  CSBOF,RS * TO ALL ONES * 616 * SOUBROUTINE ae 
OOTA74 OFTA 500 MVBI 26,R * 617 * IL 
Q001A76 2BAC 501 FFN R3 { >) * 618 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL' IL 
001A78 4020 502 MVWI x16 08", $IOIN OVERLAY OLD CONDITION CODES 619 * TL 
OO1TA7E CB25 238 : MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE eae : PURPOSE ay 
0O01A82 4CA1 505 TBTR R4,ER RESET ANY ERROR BEFORE I/O COMMAND 622 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 
OO1A84 4CA3 506 xIo2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 623 * IL 
QOO1A86 4724 507 MVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 624 * CALLING SEQUENCE IL 
OO1A8A 4CA6 508 TBTR R4, SLE) RESET LEVEL ERROR INDICATOR 625 * IL 
OO1A8C 4C62 509 TBTS R4,XI) SET EXPECTED INTR CONTROL BIT 626 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
OO1TA8E 600A 510 svc TART CALL SUPVR FOR I/O COMMAND 627 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 
511 * 628 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
001A90 4CAT 512 TBTR R4,NTI) IS AN INTR EXPECTED 629 * COMMON SECTION IS HANDLED HERE. IL 
001A92 6ACO 513 R6,2) * NO, RETURN TO USER 630 * TL 
514 * 631 * RETURN CONTROL TL 
515 * THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 632 * IL 
516 * 633 * SVC EXIT RETURN TO USER VIA SUPVR IL 
001A96 4524 0000 517 MVWI O,R5 SET UP WORK REG FOR 'LOST INTR* 634 * IL 
OO1A9A WCA3 518 xzro8 TBTR (Ba IN) HAS INTERRUPT BEEN RECEIVED G35 a 2 Ae He He he 2 ee ee eH ee 2 Ho ee a i i a 2 ee ie I 2 2 a 2c 2 i oe ee fe ate oe ok eo i ek kK KK OKT T, 
001A9C 1239 519 JON ToeK * YES, CHECK IF ALL WAS SATISFACTORY OO1ADE 706E 636 INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 TL 
OO1TA9E 6002 520 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN QOO01AEO 336A 637 SRL 13,3 POSITION INDICATORS IN R3 IL 
521 * SUPVR WILL RETURN HERE OO1TAE2 4424 19B8 638 NVA OPTN1,RU SET UP BASE ADRS TL 
O001AA0 6002 522 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO1AE6 4C63 639 INTR1 TBIS Ra resy SET INTERRUPT RECEIVED IL 
523 * SUPVR WILL RETURN HERE OO1AE8 4C28 640 TBD R4,CS IS *CS IN PROGRESS! ON IL 
OO1AA2 7DA1 0001 524 AWI 1,R5 ADVANCE TIME OUT COUNT OO1AEA 1204 641 JON NTR * YES, BCH AROUND UPDATE IL 
OO1AA6 18F9 525 JNZ xto8 BCH IF TIME OUT NOT REACHED OO1AEC C328 19C1 642 MVB R3,SL1O1IN+1 SAVE INTERRUPTING CC CODE IL 
OO1AA8 4C61 526 TBTS R4,ER) SET ON ERROR CONTROL BIT OO1AFO O6FOD 19C2 643 MVW R7,S5ISB SAVE INTR STATUS AND DEV ADRS IL 
OO1AAA 68D2 0000 527 B 6) * ERR 'NO INTERRUPT! OO1AF4 644 INTR2 EQU * IL 
529 oka ack ok dO dodo aOR do dock koko dk aikido tok tk 0 JF EBT 6** 645 * CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
530 * OO1AF4 3521 646 SLL 4,R5 POSITION INTR LEVEL AND PUT EL 
531 * SUBROUTINE OO1AF6 0501 647 ABI 1,R5 * IN 'It BIT TL 
532 * OO1AF8 CD24 19FE 648 CW S{NTL,RS IS THIS THE CORRECT INTR LEVEL IL 
533 * I/O EXECUTE ERROR HANDLING ROUTINE OO1AFC 1002 649 JE INTR3 * YES, GO EXIT THIS LEVEL IL 
534 * OO1AFE 4C66 650 TBTS R4,SLE) SET INTR LEVEL ERROR CONTROL BIT IL 
535 * PURPOSE 001B00 4C61 651 TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
536 * O01B02 4CA2 652 INTR3 TBTR R4,X1I WAS INTERRUPT EXPECTED IL 
537 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE Q0O071B04 1204 653 JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
538 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 001B06 4C60 654 TBTS Ae MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
539 * SUPERVISOR AND IT WAS NOT ACCEPTED. 001B08 F304 655 CBI R3 ATTENTION INTERRUPT? IL 
540 * 001BO0A 1001 656 JE INTRX YES IL 
541 * CALLING SEQUENCE 001B0C 4C6C 657 TBTS Aey NG) ERROR,UNEXPECTED INTERRUPT IL 
S42 * OO1BOE 6006 658 INTRX SVC Xf EXIT fHIS LEVEL VIA SUPVR TO PGM TL 
543 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 660 BO CG RO GO GO RC ig i ik aki gk kok kk tok ok tok SP EBT] 6** 
544 * ** 
545 * RETURN CONTROL 662 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
54u6 * 663 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
Zhe [ B (R6) * RETURN TO USERS ERROR HANDLER pee : RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
519 2 CO CC ORI I OR 2 I IIR A RI IG ECR i 4k 666 * 
550 * 001B10 4CAY4 667 XIOCK TBTR R4 ,XE) WAS AN ERROR EXPECTED 
551 * CC O= DEVICE NOT ATTACHED 001B12 6ACO 0002 668 BN R6, 2). * YES, EXIT THIS ROUTINE 
552 * FOR 1= DEVICE BUSY 001B16 4CAB ; 669 TBIR R4Y,CS) WAS atiro CS IN PROGRESS 
553 * I/0 2= DEVICE BUSY AFTER RESET 001B18 1006 670 JOFF TOCV * NO, CONTINUE CHECKING 
554 * 3= COMMAND REJECT O0O1B1A 4C2A 671 TBT 1e3 CE) i c§ IN AN ERR CONDITION 
555 * G= INTERVENTION REQUIRED 001B1C 1002 672 JOFF toto * NO, BCH 
556 * 5= INTERFACE DATA CHECK OO0O1B1E 68D2 0000 673 B R6) * cS ERROR 
557 * 6= CONTROLLER BUSY Q001B22 4C69 674 xXIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
558 * 7= I/O COMMAND EXCEPTED 001B24 5601 675 BXS Here), GO TO USER 
559 * 001B26 4C21 676 XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
OO1AAE TO6E 560 XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 001B28 100D 677 JOFF TOCX * NO, EXIT THIS ROUTINE 
0O1ABO 336A 561 SRL 13,R3 POSITION CC CODE TO BITS 13-15 678 * 
OO1AB2 C328 19CO 562 MVB R3.$IO0IN * PUT IN LOG OUT AREA 001B2A C520 19C1 679 MVB SIOIN+1,R5 GET LAST INTR CC CODE 
OO1AB6 68D2 0000 563 (RG) # RETURN TO USER ERROR HANDLER OO01B2E F502 680 CBI 2,85 IS THIS CC=2 
565 oko oc ok ido doko iotoiiok tolok diac oiok koiooiokicokoiokdok dokok ke dokdek a «TA PR 76 * * 001B30 1003 681 JE xfoco YES 
566 * TL 001B32 F506 682 CBI 6,R5 IS THIS CC=6 
567 * SUB-ROUTINE IL 001B34 68D1 0000 683 BNE (Re) * * NO, BCH TO ERROR HANDLER 
568 * TL 001B38 C520 19C2 684 XIOCO MVB ISB,R5 GET fast ISB DATA BYTE AND IF CS 
569 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL'* IL 001B3C 6A00 1A4A 685 BN xtoc§-4 * AVAILABLE, GO AND GET IT 
570 * TL 001B40 68D2 0000 686 B (R6) * ERROR 
571 * PURPOSE TL 001B44 CB25 19BC 687 XIOCK MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
572 * IL 001B48 5601 688 BXS (R6, 2) RETURN TO USER VIA REG 6 
573 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 689 * 
574 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 690 * I/o0 PARAMETER LIST 
575 * EXPECTED CODE. TL 691 * 
576 * TL QOO0O1B4A 1814 692 IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
577 * CALLING SEQUENCE IL OO1TB4C I1AAE 693 DC A (XIOER) ERROR ROUTINE ADRS 
578 * IL OO1B4E 0000 694 IODCB DC A (*x-* DCB ADRS OR LEVEL & INTR 
579 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 001B50 0000 695 IOMOD DBC A (*-* MODIFIER 
580 * IL 001B52 0000 696 DC A (*-* ADRS OF LAST SVC CALL 
581 : RETURN CONTROL IL 001B54 0000 aa TORSP DC A (*-* SECOND WORD OF LAST IDCB 
287 : SVC EXIT RETURN TO USER VIA SUPVR ae ona . INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
585 eC OOO co ai igo oO OK load joka ook doko kT 7 001856 1814 701 INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
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002466 0000 1390 Dc A (#-*) 
1391 * 
002468 00 1392 DC x'oo? 
002469 D6F7CIC4FI 1393 RDI DC CtO7AD9! 
00246E 0000 1394 DC A (#-¥*) 
1395 * 
002470 00 1396 DC "OO! 
002471 D6F7C1C4HC1 1397 RDA DC CtO7ADA! 
002476 0000 1398 DC A (#-*) 
1399 * 
002478 00 1400 DC x'00o? 
002479 D6F7CIC4HC2 1401 RDB DC C*O7ADB! 
00247E 0000 1402 DC Kh (*-*) 
002480 Q0 1404 DC x'0o0o? 
002481 D6F7C1C4C3 1405 RDC DC C'O7ADC! 
002486 0000 1406 DC A (¥-¥) 
002488 00 1408 DC X*‘00! 
002489 D6F7CIC4HCY 1409 RDD DC Cto7ADD! 
00248E 0000 ie DC A (*-*) 
002490 00 1412 DC Xx'oo? 
002491 D6F7CIC4HC5 1413 RDE DC C'O7ADE! 
002496 0000 1414 DC A (*-*) 
1415 * 
002498 00 1416 DC 'oo8 
002499 D6F7C1C4CE 1417 RDF DC CtO7ADF! 
00249E 0000 1418 DC A (#-*) 
OO024A0 2422 1420 WRTO DC A (RDO te 
O0OO024A2 2500 1421 DC A (SBUFF 
OO24A4 1000 nee ‘ DC x¥*1000' 
OO24A6 242A 1424 WRIT DC A EB UEF 
0024A8 2500 1425 DC A (SBUFF 
OO24AA 1000 1128 ‘ DC Xx¥*1000' 
OO24AC 2432 1428 WRT2 DC a ep aert 
OO24AE 2500 1429 DC A (SBUFF 
0024B0 1000 raat : DC Xx*1000! 
OO0O24B2 243A 1432 WRT3 DC A SROFFY 
OO024B4 2500 1433 DC a (SRUFF 
0024B6 1000 ret : pc xX*10008 
OO24B8 2442 1436 WRTY DC A RO Urry 
OO24UBA 2500 1437 DC A (SBUFF 
0O024BC 1000 Vice x DC Xx*1000' 
OO24BE 244A 1440 WRT5S DC RB UET 
0024C0 2500 1441 DC A (SBUFF 
0024C2 1000 tae ‘ DC x*1000* 
0024C4H 2452 1444 WRT6 DC A (RD6+1 
0024C6 2500 1445 DC h (SBUFF 
0024C8 1000 ee P DC Xx*1000! 
OO24CA 245A 1448 WRIT DC A RO ner 
0024CC 2500 1449 DC A (SBUFF 
OO24CE 1000 viet a DC Xx*1000! 
QO024D0 2462 1452 WRT8 DC A EBT 
0024D2 2500 1453 DC A({SBUFF 
0024D4 1000 Nice Pi DC xX¥'1000' 
0024D6 246A 1456 WRTO DC A Roary 
0024D8 2500 1457 DC A (SBUFF 
OO24UDA 1000 128 Pt DC xX*1000! 
0024DC 2472 1460 WRIA DC A gD Eee 
OO24DE 2500 1461 DC A(SBUFF 
OO024EO 1000 qaes Z DC x*1000' 
OO24UE2 247A 1464 WRTIB DC A EO RErt 
OO24E4 2500 1465 DC A (SBUFF 
0024E6 1000 ae g DC x*1000! 
OO24E8 2482 1468 WRIC DC A Retr 
OO24EA 2500 1469 DC A (SBUFE 
OO0O24EC 1000 tiaG m DC x¥*1000! 
OO24HEE 248A 1472 WRID DC A SBUFFY 
0024FO0 2500 1473 DC A(SBUFF 
0OO24F2 1000 ae - DC x*1000° 
OO24F4 2492 1476 WRITE DC R ER UrT| 
0024F6 2500 1477 DC A (SBUFF 
OO24F8 1000 Lae 4 DC x*'1000! 
OO24FA 249A 1480 WRITF DC A ee arr 
0O24FC 2500 1481 DC A (SBUFF 
OO24FE 1000 1482 DC x'1000" 
1483 * 
1484 * 
1486 


000000 


END 
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BLOCK 
READI CONTOL BLOCK 


LIGN BLOCK 
EADI CONTOL 


ALIGN BLOCK 
READI CONTOL 


LIGN BLOCK 
EADI CONTOL 


N BLOCK 
I CONTOL 


IGN BLOCK 
ADI CONTOL 


BLOCK 
READI CONTOL 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITET CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEIT CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


WRITEI CONTROL 
BUFFER ADDR 
BYTE COUNT 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


BLOCK 


U7AF1 -- 


DECLARED 
731 
789 
765 
357 
322 
323 
307 
415 
418 
425 
321 

68 
69 
51 
78 
72 
55 
71 
74 
49 
794 
1044 
10 48 
819 
1317 


814 
278 
281 
311 
125 
309 
310 
340 
233 
345 
1313 
330 
815 
1240 
1241 
48 
47 
325 
328 
155 
1015 
302 


130 
111 
1262 
817 
1251 
1314 
976 
1252 





DISK SAVE SECTOR ID PROGRAM FOR THE 4963 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


NAME 
$CONC 
$CONX 
SERRS$ 
SINTL 
SIOIN 
$ISB 
SLE 
$RDID 
SRDIM 
$RKEW 
$TUID 
@DCADD1 
@DCADD2 
@ETOH 
@MSGWTR 
@OUT 
@OUTIN 
@OUT1I 
ABMSG 
ASSIGN 
BEGIN 
BIGF 
BIGH 
BITO080 
BLK 


BUFPT 
B56 
B59 
CE 
CICB 
CS 
CSA 
CSBUF 
CSDCB 
CSTL5 
DATAA 
DCBUF 
DC2PT 
DEID 
DEID1 
DEVADD 


. DEVTAB 


DEV 1 

DEVY 

EIGHT 
EMPTY 
ER 


ETOH 
EXIT 
EXIT1 
FAKETU 
FGSEC 
FILL 
FXD 
HDCYL 


—_ oa 


—_ 
800 Ft A) Bt wa) ot Ut ek © nr OT UO 


—_> A> 


bh od 
RP ODP SPS OY Se) SOM ow BN? ~lh OM Or Or On 


ay 


a a) 


ADDRESS. 
974 


ADDRESS 
98 
ADDRE 
975 
ADDRE 
648 
ADDR 
502 
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ONe Wl? Wwe 
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E 
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=) 
op 
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Mm WemM WN G 

“NN NON NAAN VUIN~JTINOMNO 
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RESS. 
RESS. 
ESS. 
ESS. 
ESS. 
8 
RESS. 
RESS. 
RESS. 
ESS. 
96 


wm Wd 


> 
°] 


= ROD 
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RESS. 
RESS. 


RES 
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oO oO W 

Pe tt 

comwa SQ ON 
t~J° 
‘© 


wm wmawo Oo Oo 
3 AS’ > en 
nnadeca 
MON NEW HWE HAAHOHM MPeNAM NN 
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S 
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e we 


COUWNIOD SOSWWOWWDOW WW~JN OU ODD OW SOWO AD NOWODVYY NOOO DNOUNDOVONOHNGO SVM WHNOWCD 
a] 
ie] 


SOU OVGOVSMNOINNAADNON ANNAN aOUIN OO AIUD aQMnolygoy adUONOSUWOTND 2000 SOONnNwWo 


DDRESS. 
494 
ADDRESS = 


ADDRESS. 
1226 


1 


wh 


ond 


a ee ~ 
OP DO Ot 08 OD ON OD OI On RON 


ADDRESS. 
240 


= 
0 
o 
-) 
ty 
nN 
on 
we 


RESS. 
RESS. 
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OWNS AOGWONYONWUNWUINWHOUINND OD OOWOO 
Oo nm Ww 
ee & tw 
NamGeN Ww 
nN 
6 


ONWDNIOUNNOOOJSIUN UID FOWOKUOWOONUV SON 
ve] 
ty 


NOHNWN 
* toe 


® .® A) 


® cad 


5 


4 
2 
3 


9 


86 


OLUTE. 


72 


99 


7 


N 


OLUTE. 
OLUTE. HEX VALUE (00000006) 


HEX LOCATION (00001B5E) 
HEX LOCATION (00001BC6) 


P/N= 


IN 
IN 


HEX LOCATION (OQQO1B76) IN 
1060. 1090 


1034 1043 0 
HEX LOCATION (O00019FE) 


HEX LOCATION (000019CO) 
HEX LOCATION (000019C2) 
HER VALUE (00000026) 
HEX LOCATION (00001A18) 
HEX LOCATION (00001A20) 
HEX LOCATION (00001A34) 
HEX LOCATION (000019BE) 
HEX LOCATION (00001912) 
HEX LOCATION (00001914) 
HEX LOCATION (00001820) 
HEX LOCATION (00001920) 
HEX LOCATION (0000191) 
HEX LOCATION (00001828) 
HEX LOCATION (00001918) 
HEX LOCATION (000019 1E) 
HEX LOCATION (00001816) 

965 96 


RESS. HEX LOCATION (00001BD0) 


HEX LOCATION (00001EF6) 
HEX LOCATION (00001F06) 
HEX VALUE (00000080) 


IN 
IN 
IN 


HEX sO Aah oa oae  abae 


1273. 1274 1276 ~«1 
HEX LOCATION (00001D2C) 
HEX VALUE (00000018) 
ney ggbgE ggoogggan 
HEX VALUE (0000002a) 
HEX VALUE (00000014) 
HEE BLU (90009038 
HEX VALUE (00000029) 
HEX LOCATION (000019DE) 
HEX LOCATION (00001988) 
HEX LOCATION (00001956) 
HEX LOCATION (0000237C) 
HEX LOCATION (000019CE) 
HEX LOCATION (00001D2E) 
LOCATION (000021FC) 
HEX LOCATION (000021FE) 
EX LOCATION (00901814 
HEX LOCATION (00001812) 
HEX LOCATION (000019C6) 
HEX LOCATION (000019CC) 
HEX VALUE (00000008) 
HEX LOCATION (00001E82) 


HEX ae EO eee a 
609 651 676 


HEX VALUE (00000019) 


HEX LOCATION (0000224A) 
HEX LOCATION (00001D32) 
HEX LOCATION (0000222C) 
HEX LOCATION (0000237) 
8) 


ZNOW 
>) 
>) 


O Ulm = 


6 | 10 
222E) 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


1033 


IN 


IN 


6837923 


CSECT (U7AF1 
CSECT (U7TAF1 
CSECT(UTAF1 
1135.1 

CSECT (U7AF1 
CSECT (U7AF1 


CSECT (U7AF1 


CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT(U7AF1 
CSECT(N7AF1 
CSECT (U7AF1 
CSECT (U7AF1 


N CSECT (U7AF1 


CSECT(U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT(U7AF1 
CSECT (U7AF1 


CSECT (U7AF1 
1278 § 1280 


CSECT (U7AF1 


CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT(U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT(U7AF1 
CSECT (U7AF1 


CSECT (U7AF1 
1061 1091 


CSECT (U7AF1 
CSECT (U7AF1 
CSECT (U7AF1 
CSECT(U7AF1 


CSECT (U7AF1 


12 


ee a_i o_o 


EC=375102 
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) LENGTH (4) 
) LENGTH(1) 
LENGTH (6) 


2 
) LENGTH(2) 


) LENGTH (2) 
) LENGTH (2) 


LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENG TH (2) 
LENGTH (2) 
LENGTH (8) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 


LENGTH (2 
p TEROTH(2 


) LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (31) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


eel eee l= 


) LENGTH(4) 


1136 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (23) 


~wP eP eh 


) LENGTH (2) 


oo 


CL) 


U7AF1 --- DISK SAVE SECTOR ID PROGRAM FOR THE 4963 P/N=6837923 EC=375102 PAGE 08 U7AF1 --- DISK SAVE SECTOR ID PROGRAM FOR THE 4963 P/N=6837923 EC=375102 PAGE O8A 


CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAHE ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
1054 1056 1057 1065 1069 1075 1078 1086 1096 951 
1108 1271 PHD ADDRESS. HEX LOCATION (00002268) IN CSECT (U7AF1 ) LENGTH (4) 
1309 HEAD ADDRESS. HEX LOCATION (008002362) IN CSECT (U7AF1 ) LENGTH {2) 1288 
1267 1266 PHDD ADDRESS. HEX LOCATION(00002254) IN CSECT(U7AF1 ) LENGTH (4) 
1250 HEADS ADDRESS. HEX LOCATION (0000222A) IN CSECT (U7AF1 ) LENGTH (2) 949 1084 
1044 1046 1048 1050 106 1289 PHD2 ADDRESS. HEX LOCATION (000022BC) IN CSECT(U7AF1 ) LENGTH (4) 
1310 HEAD4 ADDRESS. HEX LOCATION (00002364) IN CSECT (U7AF1 ) LENGTH(21) 1266 
1309 40 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(U7AF1 ) LENGTH(4) 
823 HEBLK ADDRESS. HEX LOCATION (00001D34) IN CSECT(U7AF1 ) LENGTH (2) 82 782 
766 818 PIDMSGT0 ABSOLUTE. HEX VALUE (OQOOF1FO) 
131 HTOE ABSOLUTE. HEX YALGE (90000012) 782 
767 1275 1279 1283 117 PREP ABSOLUTE. HEX VALUE(0000000C) 
1235 IBER ADDRESS. HEX LOCATION (000021C0O) IN CSECT(U7AF1 ) LENGTH(31) 736 
1234 ! 1291 PRINT ADDRESS. HEX LOCATION (000022C0) IN CSECT(U7AF1 ) LENGTH(10) 
1234 IBERR ADDRESS. HEX LOCATION (000021BE) IN CSECT(U7AF1 ) LENGTH(2) 936 980 994 269 
1223 1259 PRNT ADDRESS. HEX LOCATION (00002246) IN CSECT(U7AF1 L LENGTH (2) 
1154 IBWRT {ABBRESS: HEX LOCATION (0000207C) IN CSECT (U7AF1 ) LENGTH (4) | 1382 991 994 1006 1155 1162 1177 1269 1273 
107 IDLE ABSOLUTE. HEX VALUE (00000002) 1397 RDA ADDRESS. HEX LOCATION (00002471) IN CSECT(U7AF1 ) LENGTH (5) 
1322 ID00 ADDRESS, HEX LOCATION {0000239C) IN CSECT (U7AF1 ) LENGTH(4) 1401 RDB  RDDRESS. HEX LOCATION (00002479) IN CSECT(U7AF1 ) LENGTH (5) 
1200 IMPTY  ADPRESS. HEX LOCATION (00002136) IN CSECT (U7AF1 ) LENGTH (2) 1405 RDC jADDRESS. HEX LOCATION (00002481) IN CSECT(U7AF1 ) LENGTH(5) 
304 IN ABSOLUTE. HEX VALUE (00000023) 1256 RDCTL ADDRESS. HEX LOCATION (00002236) IN CSECT(U7AF1 ) LENGTH (2) 
506 518 938 947 979 981 989 93 996 1008 1161 
59 INAREA ADDRESS. HEX LOCATION (00001830) IN CSECT(U7AF1 ) LENGTH (2) 1163. 1165 11 
52 56 1409 RDD ADDRESS. HEX LOCATION (00002489) IN CSECT(U7AF1 ) LENGTH (5) 
701 INTBL ADDRESS. HEX LOCATION (00001B56) IN CSECT(U7AF1 ) LENGTH(2) 1472 
731 1413 RDE ADDRESS. HEX LOCATION(00002491) IN CSECT(U7AF1  ) LENGTH(S) 
596 INTER ADDRESS. HEX LOCATION (QO001ABA) IN CSECT(U7AFI1 ) LENGTH (2) 1476 
703 1417 RDF ADDRESS. HEX LOCATION (00002499) IN CSECT(U7AF1 ) LENGTH(5) 
605 INTES ADDRESS. HEX LOCATION(00001AD2) IN CSECT (U7AF1 ) LENGTH (2) 1260 480 
600 1357 RDO ADDRESS. HEX LOCATION (00002421) IN CSECT(U7AF1 ) LENGTH (5) 
609 INTET ADDRESS. HEX LOCATION (OOOO1ADA) IN CSECT(U7AF1 ) LENGTH (2) 979 993 1256 1420 
606 1361 RD1 ADDRESS. HEX LOCATION (00002429) IN CSECT(U7AF1 ) LENGTH (5) 
6 36 INTOK ADDRESS. HEX LOCATION(OOOO1ADE) IN CSECT (U7AF1 ) LENGTH (2) 1424 
702 1365 RD2 ADDRESS. HEX LOCATION (00002431) IN CSECT(U7AF1 ) LENGTH (5) 
658 INTRX ADDRESS. HEX LOCATION(00001BOE) IN CSECT(U7AF1 ) LENGTH(2) 1428 
653 6 1369 RD3 ADDRESS. HEX LOCATION (00002439) IN CSECT(U7AF1 ) LENGTH (5) 
639 INTR1 ADDRESS. HEX LOCATION (QOO01AE6) IN CSECT(U7AF1 ) LENGTH (2) 1432 
604 608 6 1373 RD4 ADDRESS. HEX LOCATION (00002441) IN CSECT(U7AFI1 ) LENGTH (5) 
644 INTR2 ADDRESS. HEX LOCATION (QOOOO1AF4) IN CSECT(U7AF1 ) LENGTH(1) 1436 
641 1377 RD5 ADDRESS. HEX LOCATION (00002449) IN CSECT(U7AF1 ) LENGTH (5) 
652 INTR3 ADDRESS. HEX LOCATION (00001B02) IN CSECT (U7AF1 ) LENGTH (2) 1440 
649 1381 RD6 ADDRESS. HEX LOCATION (00002451) IN CSECT(U7AF1 ) LENGTH(5) 
692 IOBLK ADDRESS. HEX LOCATION(QO001B4A) IN CSECT (U7AF1 ) LENGTH (2) 1444 
507. 735 1385 RD7 ADDRESS. HEX LOCATION (00002459) IN CSECT(U7AF1 ) LENGTH(5) 
694 IODCB ADDRESS. HEX LOCATION (0000 1B4E) IN CSECT (U7AF1 ) LENGTH (2) 1448 
411 415 418 425 48g 95 1389 RD8 ADDRESS. HEX LOCATION (00002461) IN CSECT(U7AF1 ) LENGTH (5) 
695 IOMOD ADDRESS. HEX LOCATION (00001B50) IN CSECT (U7AF1 ) LENGTH(2) 1452 
481 484 490 1393 RD9 ADDRESS. HEX LOCATION (00002469) IN CSECT(U7AF1 } LENGTH (5) 
1217 IWRT ADDRESS. HEX LOCATION (00002180) IN CSECT (U7AF1 ) LENGTH (4) 1456 
1154 1190 136 READI ABSOLUTE. HEX VALUE {9000001F) 
1179 IWRT1 ADDRESS. HEX LOCATION (000020E4) IN CSECT (U7AF1 ) LENGTH (6) 939 982 997 1166 
1199 124 RICB ABSOLUTE. HEX VALUE (00000013) 
1188 IWRT2 ADDRESS. HEX LOCATION(0000210A) IN CSECT (U7AF1 ) LENGTH (2) 791 
1164 244 RKDCB ADDRESS, HEX LOCATION (00001998) IN CSECT(U7AF1 ) LENGTH (2) 
1175 I7AA ADDRESS. HEX LOCATION (000020D0) IN CSECT(U7AF1 ) LENGTH (6) 425 1138 1139 1140 
1192 1197 1201 255 RMDCB ADDRESS. HEX LOCATION (00001928) IN CSECT (U7AF1 ) LENGTH (2) 
1163 I7A1 jADBRESS. HEX LOCATION (000020A4) IN CSECT(U7AF1 ) LENGTH(6) wale 1937 1058 1087 1088 1095 1097 1110 1117 
1191 I7A2 jROBRESS. HEX LOCATION (00002110) IN CSECT (U7AF1 ) LENGTH (6) 1260 RRDF jARBRESS. HEX LOCATION (00002248) IN CSECT(U7AF1 ) LENGTH (2) 
1155 I7A3 {TBDRESS- HEX LOCATION (00002080) IN CSECT(U7AF1 ) LENGTH (4) 1258 RSBA ADDRESS, HEX, LOCATION (00002238) IN CSECT(U7AF1 ) LENGTH (2) 
1171 I7A5 ADDRESS. HEX LOCATION (000020C0) IN CSECT(U7AF1 ) LENGTH(6) 211 RSDCB ADDRESS. HEX LOCATION (00001968) IN CSECT (U7AF1 } LENGTH (2) 
1168 495 1129 1130 1131 1132 1138 1139 1140 1145 
800 LINE1 ADDRESS. HEX LOCATION (00001C08) IN CSECT (U7AF1 ) LENGTH(40) 1146 1147 
771 0 RO REGISTER. HEX VALUE (00000000) 
324 LSTIO ADDRESS. HEX LOCATION (000019C4) IN CSECT (U7AF1 ) LENGTH (2) 1270 1288 
493 942 985 R1 REGISTER. HEX VALUE (0000000 1) 
301 MI ABSOLUTE. HEX VALUE (00000020) 78 79 80 1 85 88 89 92 771 
654 774 777 ©780 937 948 958 959 978 992 
1247 MSCID ADDRESS. HEX LOCATION (00002224) IN CSECT (U7AF1 ) LENGTH (2) 1016 1018 1022 1023 1024 1184 1186 1203 1205 
1105 1106 1112 1120 . 1209 1210 1211 
61 MSG ADDRESS. HEX LOCATION (00001852) IN CSECT (U7AF1 ) LENGTH (50) 0 R2 REGISTER. HEX VALUE (00000002) 
55 80 86 88 776 777 936 944 945 946 
1224 MSGS ADDRESS. HEX LOCATION (00002194) IN CSECT (U7AF1 ) LENGTH (2) 1015. 1018 1155 1156 1157 1183 1186 1202 1205 
1220 1222 0 R3 REGISTER. HEX YALUE (00000003) 
88 MSGWTR1 ADDRESS. HEX LOCATION (00001942) IN CSECT(U7AF1 ) LENGTH(2) 421 422 481 4Ygu 497 498 501 503 560 
93 561 562 596 597 +603 607 #+.636 £637 642 
1223 MSG1 ADDRESS. HEX LOCATION (00002190) IN CSECT(U7AF1 ) LENGTH(4) 655 oor 769 770 774 786 1065 1066 1067 
1001 1170 1069 1070 1071 1072 1074 1075 
1001 MSG11 ADDRESS. HEX LOCATION(OO001E40) IN CSECT(U7AF1 ) LENGTH(4) 0 R4 REGISTER. HEX VALUE (90000004) 
943 986 87 93 487 488 494 505 506 508 509 
1219 MSG2 ADDRESS. HEX LOCATION(00002184) IN CSECT (U7AF1 ) LENGTH(4) 512 518 526 598 599 601 605 609 638 
1144 639 640 650 651 652 654 657 667 #669 
1221 MSG3 ADDRESS. HEX LOCATION (0000218A) IN CSECT(U7AF1 ) LENGTH(4) 671 674 676 973 1029 1030 1033 1045 1049 
1189 1052 1061 1076 1080 1082 1091 1136 1143 1188 
1226 MSG4 ADDRESS. HEX LOCATION (0000219A) IN CSECT(U7AF1 ) LENGTH(4) 1198 1200 
971 MSSG1 ADDRESS HEX LOCATION (00001DC4) IN CSECT(U7AF1 LENGTH(4 . oF 100 BOD oar th tania tb ae tt 501 517 38524 646 
962 964 966 ( ( ) (4) 647 648 679 680 682 684 768 #«+781 940 
774 MVBUF ADDRESS. HEX LOCATION (00001B94) IN CSECT(U7AF1 ) LENGTH(2) 983 998 1167 
778 781 0 R6 REGISTER. HEX VALUE (90000096) 
313 NG ABSOLUTE. HEX VALUE(0000002C) 493 513 527 563 £4668 ° # £673 675 683 6 86 
657 688 733 737 773 778 779 949 974 1031 
308 NI ABSOLUTE. HEX VALUE (00000027) 1059 1063 1064 1083 1084 1089 1093 1094 1104 
512 1116. 1128 1134 1141 1154 1262 1266 
1238 NLST ADDRESS. HEX LOCATION (000021E2) IN CSECT (U7AF1 ) LENGTH(25) 0 R7 REGISTER. HEX VALUE (00000007) 
1237 83 90 96 368 419 496 500 # £507 602 
1237 NOLST ADDRESS. HEX LOCATION(000021E0) IN CSECT(U7AF1 ) LENGTH(2) \ 643 731 735 766 772 775 (787 (790 938 
1221 950 952 981 996 1017 1158 1165 1185 1204 
266 OPTN1 ADDRESS. HEX LOCATION (000019B8) IN CSECT(U7AF1 ) LENGTH (2) 1219 1221 1223 1226 1263 1267 1271 1288 
598 638 97 1255 SAVE7 ADDRESS. HEX LOCATION (00002234) IN CSECT (U7AF1 } LENGTH (2) 
289 OPTN3 ADDRESS. HEX LOCATION (000019BC) IN CSECT (U7AF1 ) LENGTH (2) 990 995 1005 1158 1160 1176 
687 935 SBUFF ABSOLUTE, HEX VALGE (90002500) 
105 ouT ABSOLUTE. HEX YALE (00009000) 944 945 987 1002 1008 1010 1013 1020 1021 
84 91 97 1224 1227 1268 1287 1024 1025 1028 1156 1157 1171 #1173 #1179 + «#1180 
106 OUTIN ABSOLUTE. HEX VALUE (00000001) 1181 1182 1191 1193 1196 1207 1208 1211 1212 
1215 14217 1425 1429 1433 1437 1441 #1645 1449 
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UT7AF1 --- DISK SAVE SECTOR ID PROGRAM FOR THE 4963 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 


DECLARED NAME 
1231 SCTER 
329 SCTID 
1253 SEC33 
1254 SEC34 
63 SERIAL 
222 SKDCB 
1045 SMLF 
1049 SMLM 
115 START 
1232 STER 
70 SUPSTAT 
1080 TCOO 
1244 TEMP2 
1245 TEM P3 
112 TERM 
1104 TFLG 
1117 TFLG5 
1106 TFLG6 
1122 TFLG9 
1051 TSF3A 
1056 TSF3B 
1088 TS69A 
1057 TS69C 
1082 TS69F 
1064 TS69G 
1086 TS69X 
1094 TS69Y 
1128 TT69 
1146 TT69A 
1132 TT69L 
1149 TT69Z 
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